home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO009.dsk / STARTUP.bas < prev   
BASIC Source File  |  2012-02-16  |  3KB  |  75 lines
  1. 1  CALL  PEEK(175) +256 * PEEK(176) -46
  2. 2  TEXT 
  3. 3 PU = 1
  4. 400  DIM L$(200): DIM T$(200)
  5. 410  HOME : PRINT  CHR$(4);"PREFIX/"
  6. 420  PRINT  CHR$(4);"PR#3"
  7. 460 X = 1
  8. 465  FOR Q = 1 TO 65:L$(Q) = " ": NEXT Q: FOR Q = 1 TO 65:T$(Q) = " ": NEXT Q
  9. 470  PRINT  CHR$(4);"PREFIX": INPUT DISK$
  10. 500  PRINT  CHR$(4);"OPEN ";DISK$;",TDIR"
  11. 510  PRINT  CHR$(4);"READ ";DISK$
  12. 520  INPUT S$:X = X +1: IF X >4  THEN 530
  13. 525 W$(X) = S$: GOTO 520
  14. 530  IF S$ < >""  THEN L$(X -4) = S$: GOTO 520
  15. 540  PRINT  CHR$(4);"CLOSE ";DISK$
  16. 565 CNT = X -5
  17. 566  FOR X = 1 TO CNT:T$(X) =  MID$ (L$(X),2,21): NEXT X
  18. 570 F$ = DISK$:P$ = "Use the Arrow Keys to Select"
  19. 575 E$ = "Options":MA$ = DISK$
  20. 577  GOSUB 1100
  21. 578 PU = PU +1
  22. 580  & "MENU",T$(1),CNT,F$,P$,SE
  23. 590  IF SE = 0  THEN 1000
  24. 600 PG$ =  MID$ (T$(SE),1,16)
  25. 610 TY$ =  MID$ (T$(SE),17,3)
  26. 620  IF TY$ = "SYS"  THEN  PRINT  CHR$(4);"-";PG$: END 
  27. 630  IF TY$ = "BIN"  THEN  PRINT  CHR$(4);"-";PG$: END 
  28. 640  IF TY$ = "BAS"  THEN  PRINT  CHR$(4);"-";PG$: END 
  29. 650  IF TY$ = "TXT"  THEN  PRINT  CHR$(4);"-";PG$: END 
  30. 660  IF TY$ < >"DIR"  THEN 690
  31. 670  PRINT  CHR$(4);"PREFIX";PG$
  32. 680  GOSUB 1200: GOTO 460
  33. 690  HOME : PRINT "Unable to Process a ";M$;" Type File": FOR P = 1 TO 500: NEXT P: HOME : GOTO 460
  34. 1000  & "WINDOW",10,20,20,60: PRINT : HOME : PRINT 
  35. 1001  PRINT " _____________________________________ "
  36. 1002  PRINT "|              Options                |"
  37. 1003  PRINT "| CONTROL-B Change Disk Drive         |"
  38. 1004  PRINT "| CONTROL-O Return to Original Volume |"
  39. 1005  PRINT "| CONTROL-Q Quit Program-Go to Basic  |"
  40. 1006  PRINT "| CONTROL-R Return to Last Menu       |"
  41. 1007  PRINT "|                                     |"
  42. 1008  PRINT "|_____________________________________|"
  43. 1009  PRINT : PRINT "               ";: GET OP$
  44. 1019  HOME 
  45. 1020  IF  ASC(OP$) < >02  THEN 1030
  46. 1021  INPUT "Slot#  ";SL$
  47. 1022 SL =  VAL(SL$): IF SL <1  OR SL >8  THEN 1021
  48. 1023  INPUT "Drive# ";DR$
  49. 1024 DR =  VAL(DR$): IF DR <1  OR DR >4  THEN 1023
  50. 1025  PRINT  CHR$(4);"PREFIX/,S";SL;",D";DR
  51. 1026 PU = 1: POKE 34,0
  52. 1027  TEXT : PRINT : HOME : GOTO 460
  53. 1030  IF  ASC(OP$) < >15  THEN 1040
  54. 1031 PU = 1: POKE 34,0
  55. 1032  PRINT  CHR$(4);"PREFIX/": TEXT : PRINT : HOME : GOTO 410
  56. 1040  IF  ASC(OP$) < >17  THEN 1050
  57. 1041  TEXT : HOME : NEW : END 
  58. 1050  IF  ASC(OP$) < >18  THEN 1060
  59. 1051  IF  MID$ (W$(2),1,1) = "/"  THEN 1059
  60. 1053 WP$ = (W$(2) +"/")
  61. 1054 W =  LEN(WP$):LK =  LEN(DISK$)
  62. 1055 DISK$ =  MID$ (DISK$,1,(LK -W))
  63. 1056  PRINT  CHR$(4);"PREFIX";DISK$: PRINT ;
  64. 1057 PU = PU -2: POKE 32,0: POKE 33,80
  65. 1058  GOSUB 1300: GOTO 460
  66. 1059  TEXT : GOTO 460
  67. 1060  HOME : GOTO 1000
  68. 1100  VTAB 1: HTAB 1: & "CLEAR" TO EOL: PRINT T$;: HTAB 1: PRINT CNT;" Files in Directory";: HTAB 40 -( LEN(MA$)/2): PRINT MA$;: HTAB 79 - LEN("Escape: " +E$): PRINT "Escape: ";E$
  69. 1110  PRINT "______________________________________________________________________________";: GOSUB 1400: RETURN 
  70. 1200  POKE 34,PU *2: RETURN 
  71. 1300  POKE 34,PU *2: RETURN 
  72. 1400  IF ( PEEK(34)) >1  THEN  RETURN 
  73. 1401  POKE 34, PEEK(34) +2: RETURN 
  74. 1500  IF ( PEEK(34)) >1  THEN  RETURN 
  75. 1501  POKE 34, PEEK(34) -2: RETURN